home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / tcp / cserver.lha / CServer.amirx next >
Text File  |  1997-03-28  |  855b  |  40 lines
  1. /*
  2. ** Connect Thread for AmIRC v1.2a
  3. ** ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4. **    Author: Matthew Gregan (kinetik@es.co.nz)
  5. */
  6.  
  7. Options Results
  8. Parse Arg Args
  9.  
  10. Server      = Word(Args,1)
  11. Port        = Word(Args,2)
  12. Nick        = Word(Args,3)
  13. Autojoin    = Word(Args,4)
  14. Arguments   = 'Connect'
  15.  
  16. If Server = '' Then Do
  17.    'Echo P='d2c(27)'b«Error» Usage: /CServer <server> [port] [nick] [channel to autojoin]'
  18.    Exit
  19. End
  20.  
  21. If ~Datatype(Port,N) Then Do
  22.    Nick = Port
  23.    Port = ''
  24. End
  25.  
  26. If Autojoin = '' Then Do
  27.    If SubStr(Nick,1,1) = '#' Then Do
  28.       Autojoin = Nick
  29.       Nick = ''
  30.    End
  31. End
  32.  
  33. If Server ~= '' Then Arguments = Arguments' Server='Server
  34. If Port ~= '' Then Arguments = Arguments' Port='Port
  35. If Nick ~= '' Then Arguments = Arguments' Nick='Nick
  36. If Autojoin ~= '' Then Arguments = Arguments' Autojoin='Autojoin
  37.  
  38. Address Command 'AmIRC 'Arguments
  39.  
  40.